home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / GRAPHICS / INTENSE.ZIP / INTENSE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-09-18  |  1.3 KB  |  52 lines
  1. Uses Crt;
  2.  
  3. Procedure Col (f,b: integer);     {Replacement for TextColor/textbackground}
  4. Begin                             {This is when you're using HIGH intense}
  5.      TextAttr:=f+16*b;            {Background colors.}
  6. end;
  7.  
  8. Procedure Intense(s: string);
  9. Var
  10.    I : Integer;
  11.  
  12. Begin
  13.      for i := 1 to Length(s) do s[i] := UpCase(s[i]);
  14.      if s='HIGH' then
  15.      begin
  16.           Asm
  17.              mov ax, 1003h
  18.              mov bl, 00h            {High intense Background Colors}
  19.              mov bh, 00h
  20.              int 10h
  21.           end;
  22.      end
  23.      else
  24.      begin
  25.           Asm
  26.              mov ax, 1003h
  27.              mov bl, 01h             {Blink Enabled / Normal}
  28.              mov bh, 00h
  29.              int 10h
  30.           end;
  31.      end;
  32. end;
  33.  
  34. Begin
  35.      Intense('High');
  36.      Col (15,12);
  37.      ClrScr;
  38.      WriteLn ('Hi there! Now we have High Intense Background colors!');
  39.      WriteLn;
  40.      WriteLn ('And when you press a key, we have low intense background colors!');
  41.      readkey;
  42.      Intense ('Low');
  43.      Textcolor (31);
  44.      TextBackground (4);
  45.      ClrScr;
  46.      WriteLn ('Isn''t that coool????');
  47.      WriteLn;
  48.      TextColor (14);
  49.      WriteLn ('Call Ultimate Force HQ for more programs!');
  50.      WriteLn ('+31-30-287842, speeds up to 28800bps!');
  51.      readkey;
  52. end.